home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / keyb / stfkey40.zip / STUFFTIM.KEY < prev    next >
Text File  |  1992-11-01  |  2KB  |  43 lines
  1. ;*** Stufftim.key - a test for Stuffkey ver. 3.30, by Juergen Geist. 7Oct92
  2. ;    to use this, enter:
  3. ;    stuffkey /f:stufftim.key
  4. ;
  5. +0 13
  6. 'type con' 13 13 13
  7. 'Time delay/midnight wrap test for Stuffkey V. 3.30, by J. Geist - 7Oct92 '27
  8. 'Loads 2 more copies. 2nd sends 8 CRs @1/2 sec., 3rd waits till 12:07a.'27
  9. 'Warning! This will mess up your Dos time; you will need to reset it! '27
  10. 'Without the quotes, type "ok!!" to run the test, or "/r" to abort. '27
  11. 'You have 30 seconds to abort, else test will run '27 13
  12. {^c} +0
  13. ;** Use Prompt command to check for "ok!", timeout in 30 secs. 
  14. ;   check 4 chars to left of cursor, same line, with a slop factor of 2
  15. ;   supply "stuffkey " so user can add "/r" to remove!
  16. +0 13 +0 'stuffkey  '
  17. ~30 {Prompt}4,0,2,"ok!" 
  18. {Esc} {Enter} +.3       ; can use {Keyname} or char codes, i.e., 27 13
  19. 'set old_prompt=%prompt%' 13 +0 
  20. 'set prompt=$.' 13 +0
  21.  
  22. 13 'time' 13 +0 +.3              
  23. '23:59:56' 13 +0 +.3    ; set time to 4 seconds before midnight.
  24.                         ; Stuff CR delayed by 9 timer ticks, or 1/2 second.
  25. 'Loading 2nd & 3rd copies of Stuffkey now...' 3 13 +0 +.8
  26. 'stuffkey /s02 +2 13 +.9 13 +.9 13 +.9 13 +.9 13 +.9 13 +.9 13 +.9 13 +.9 13' 13
  27. +0 +.6
  28. 'stuffkey /s03 =7 +0 13 "Stuffkey 3rd copy - at 12:07am." 3 13' 13
  29. +0 +.3 'set prompt=$ Stfky tst: $t$g' 13 +0 +.3
  30. +12 +0 +1 'Unloading 3rd & 2nd copies, and restoring prompt now...' 3 13 +0 +1
  31. +0 'set prompt=$.' 13
  32. +0 +1 'stuffkey /s03 /r' 13
  33. +0 +1 'stuffkey /s02 /r' 13
  34. +0 'set prompt=%old_prompt%' 13
  35. +0 'set old_prompt=' 13
  36. +0 'type con' 13 13
  37. +0 'Stuffkey test is done. Remeber to reset your Dos time. ' 27 13 13 3
  38.  
  39. ;** remove original copy of stuffkey.
  40. +0 'stuffkey /r' 13
  41.  
  42.  
  43.